home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / zkuste / xptools / install / Xsetup / setup.exe / {app} / plugins / XQ MSI Options 5.xpl < prev    next >
Text File  |  2002-07-31  |  2KB  |  55 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="System\Software Installation\Windows Installer"
  5. "NAME"="Query Credentials"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Query Credentials for local installations"
  9. "TEXT 2"="Query Credentials for network installations"
  10. "DESCRIPTION 1"="Internet Explorer 5, Office 2000 and Windows 2000 use a new standard for installing applications: the Windows Installer (aka MSI). "
  11. "DESCRIPTION 2"="If the current user has no rights to install software (for example, the user has no rights to write to the \windows folder), the Windows Installer has the ability to query for a username that has the rights to carry out the installation."
  12. "DESCRIPTION 3"="The reason for this setting is that, if a user wants to have software installed, the user normally needs to log off, the ADMIN will log on, install the software and the user logs on again."
  13. "DESCRIPTION 4"="When this setting is activated, the Windows Installer will detect that the current user has no rights to carry out an installation and opens a login window where the Admin can provide a login that has the rights the install the software. When the provided login is valid, the installation will be carried out. In this case, it is not necessary for the current user to log off. "
  14. "DESCRIPTION 5"="The first option applies to packages that are opened from a local drive (e.g. CD-ROM) the second applies only to installations that are started from a network path (e.g. \\server1\software)."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19.  
  20.  
  21. sPathUsr="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\"
  22.  
  23. sV1="NoRunasInstallPrompt"
  24. sV2="PromptRunasInstalNetPath"
  25.  
  26. Sub Plugin_Initialize 
  27.  i=RegReadValue(sPathUsr & sV1) 
  28.  if i<>1 then setuielement 1,true
  29.  
  30.  i=RegReadValue(sPathUsr & sV2)
  31.  if i=1 then setuielement 2,true
  32. End Sub
  33.  
  34. Sub Plugin_CheckData(ElementIndex)
  35. End Sub
  36.  
  37. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  38.  b=GetUIElement(1)
  39.  if b=true then
  40.     Call RegWriteValue(sPathUsr & sV1,0,2)
  41.  else
  42.     Call RegWriteValue(sPathUsr & sV1,1,2)
  43.  end if
  44.  
  45.  b=GetUIElement(2)
  46.  if b=true then
  47.     Call RegWriteValue(sPathUsr & sV2,1,2)
  48.  else
  49.     Call RegWriteValue(sPathUsr & sV2,0,2)
  50.  end if
  51. End Sub
  52.  
  53. Sub Plugin_Terminate 
  54. End Sub
  55.